home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / dbase / do1beta.zip / ATSAY.DO < prev    next >
Text File  |  1991-06-17  |  284b  |  14 lines
  1. /*
  2.     sample full screen field output
  3. */
  4. w = new(Window,1,31,3," dObject Screen I/O ",0,0,24,80);
  5. clearGets(w);
  6. a = "test";
  7. b = "test2";
  8. say(w,5,5,"field a",10,31);
  9. say(w,6,5,"field b",10,31);
  10. new(Field,w,5,20,"a",10,112);
  11. new(Field,w,6,20,"b",10,112);
  12. read(w);
  13. remove(w);
  14.